home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / curset.arc / CURSET.PAS < prev    next >
Pascal/Delphi Source File  |  1988-05-31  |  621b  |  29 lines
  1. {==================}
  2. Program PRINTCHK;
  3. {==================}
  4. LABEL
  5.    TOP;
  6. CONST
  7.    Video_INTR = $10;
  8.    Start_Stop = $0607;
  9.    Cursor_Set = $0100;
  10. TYPE
  11.    Regset =
  12.       record
  13.          AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags: INTEGER;
  14.       end;
  15. VAR
  16.    Rec     : Regset;
  17. {=============================================================================}
  18. BEGIN  {of Main Program}
  19. TOP:
  20.    Textcolor(LightCyan);
  21.    ClrScr;
  22.    Rec.AX := Cursor_Set;
  23.    Rec.CX := Start_Stop;
  24.    Intr(Video_INTR,Rec);
  25. END.  {of Main Program}
  26. {=============================================================================}
  27.  
  28.  
  29.